home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / telecom / tm421_4.zip / DCI.SCR < prev    next >
Text File  |  1996-02-06  |  2KB  |  62 lines
  1. ; DCI.SCR  --  Telemate script to logon DCI BBS
  2. ;
  3. ; 12/20/1991   Nordevald Software
  4. ;
  5. ; DCI.SCR is a general logon script file for DCI BBS.  It will logon
  6. ; to DCI boards including those running front ends such as BinkleyTerm
  7. ; and D'Bridge.
  8. ;
  9. ; You can use this script for all the DCI boards you call.  On each
  10. ; dialing entry enter DCI in the script field and enter your usernumber
  11. ; and password in the password field in the format usernumber;password.
  12. ;
  13. ; For instance, if on one DCI board, your usernumber is 83 and your
  14. ; password is SESAME, enter 83;SESAME in the password field of this
  15. ; board's dialing entry.
  16. ;
  17. ; Do the same for other DCI boards that you call.
  18. ;
  19. ; The script will log you on using ^& to send your usernumber and
  20. ; password for each DCI board.
  21. ;
  22. ;
  23.  
  24. SET AutoStop,On              ; stop script if carrier is lost
  25. SET Tag,Crlf                 ; set file tag separator to CR/LF
  26. SET Terminal,ANSI            ; use ANSI emulation for full screen editor
  27. SET Music,Off                ; command used for editing instead
  28.  
  29. while found < 6
  30.   Waitfor "Irwin","BinkleyTerm","ESC","r <E> to End Connection:","continue? [Y]/n","Enter Name or ",120
  31.   if found < 4
  32.     delay 5
  33.   endif
  34.   switch found
  35.     case 1 : Put "^[^["         ; send two ESCAPE characters
  36.     case 2 : Put "^[^["         ; send two ESCAPE characters
  37.     case 3 : Put "^[^["         ; send two ESCAPE characters
  38.     case 4 : Put "1"            ; send menu selection
  39.     case 5 : Put "^M"           ; event scheduled?
  40.     case 6 : Put "^&"           ; save password as <usernumber>;<password>
  41.   endswitch
  42. endwhile
  43.  
  44. if not found
  45.   hangup
  46.   stop
  47. endif
  48.  
  49.  
  50. When "Press any key", "^M"      ; send CR at "Press any key" prompts
  51.  
  52. When "*MORE*", "^M"             ; send CR at *MORE* prompts
  53.  
  54. Waitfor "Enter Command ("       ; wait for base prompt
  55. if not found
  56.   hangup
  57.   stop
  58. endif
  59.  
  60. Alarm "  Your turn!"
  61.  
  62.